Public MustInherit Class ObjectBase
    Inherits Base

    Protected mlRevID As Long = -1
    Protected mbIsDeleted As Boolean
    Protected mbIsNewestRev As Boolean = True

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal lID As Long)
        MyBase.New(lID)
    End Sub

    Public Sub New( _
                ByVal lID As Long, _
                ByVal lRevID As Long)

        MyBase.New(lID)
        mlRevID = lRevID
    End Sub

    Public Property RevID() As Long
        Get
            Return mlRevID
        End Get
        Set(ByVal value As Long)
            mlRevID = value
        End Set
    End Property

    Public Property IsDeleted() As Boolean
        Get
            Return mbIsDeleted
        End Get
        Set(ByVal value As Boolean)
            mbIsDeleted = value
        End Set
    End Property

    Public Property IsNewestRev() As Boolean
        Get
            Return mbIsNewestRev
        End Get
        Set(ByVal value As Boolean)
            mbIsNewestRev = value
        End Set
    End Property
End Class
